(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     16622,        517]
NotebookOptionsPosition[     15898,        487]
NotebookOutlinePosition[     16237,        502]
CellTagsIndexPosition[     16194,        499]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"eta0", "=", 
    RowBox[{
     RowBox[{"1199169832", "/", "10000000"}], "Pi"}]}], "\[IndentingNewLine]", 
   RowBox[{"Dout", "=", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.567937831575729*^9, 3.567937836394609*^9}, {
  3.567938028325918*^9, 3.567938053952236*^9}, {3.5689665795019817`*^9, 
  3.568966621318551*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"149896229", " ", "\[Pi]"}], "1250000"]], "Output",
 CellChangeTimes->{3.567938223207395*^9, 3.568966643175906*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.567938223207395*^9, 3.5689666431778097`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z0", "[", 
   RowBox[{"D_", ",", "d_", ",", "t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"eta0", "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", "Pi"}], ")"}]}], " ", 
   RowBox[{"ArcCosh", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "/", 
       RowBox[{"(", 
        RowBox[{"2", "d"}], ")"}]}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Power", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", " ", 
            RowBox[{"t", "/", "D"}]}], ")"}], ",", "2"}], "]"}]}], ")"}]}], 
     "+", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"2", " ", "D"}], ")"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.567937807009571*^9, 3.567937822628722*^9}, {
  3.567938066584167*^9, 3.5679381973386393`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"di", "/", "Dout"}], " ", ",", " ", 
        RowBox[{"t", "/", "Dout"}], " ", ",", 
        RowBox[{"N", "[", 
         RowBox[{
          RowBox[{"Z0", "[", 
           RowBox[{"Dout", ",", "di", ",", "t"}], "]"}], ",", "16"}], "]"}]}],
        "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"di", ",", 
        RowBox[{"1", "/", "10"}], ",", 
        RowBox[{"1", "/", "2"}], ",", 
        RowBox[{"1", "/", "10"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", 
        RowBox[{"1", "/", "5"}], ",", 
        RowBox[{"1", "/", "20"}]}], "}"}]}], " ", "]"}], ",", "1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQvfHux2Lfqa8cE024y0H0nMOr6kH0zoJfPSD68Am/
ySC6+e6POSD6klHrIhBd1PEVTMcx+C0H0Txz9qwG0d9Mz3gWAOkgfycvEF01
vSgQRDeskIoD0ZN01ZJA9IbllskgOrhdLB1EK534C6YZrjgWgmiJrtllIFpD
0nk6iLa45b4ERD/yNt4Mol09osC0wdnFu0H09wmee0D0iv/yzc7TXznmGVV2
gGgO7Wk9IJrvZedsEH2B/8B8EH2jzmshiJZyaNgIopOy+zaB6Ft2/adAdNuV
PadBtMtz95sguirGB0wDAJ6fnes=
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", "0", ",", 
     "138.05952895656870699520899488456423467273`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "20"], ",", 
     "137.4507450029578480801109284808465697971`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "10"], ",", 
     "135.58558871739278433439475687984662206903`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["3", "20"], ",", 
     "132.33880473910899955626312974983805196184`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "5"], ",", 
     "127.46748454422190554418190056702157662641`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", "0", ",", 
     "96.49946955340154286405648183486397516451`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "20"], ",", 
     "95.87134914658342802038992103621089515688`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "10"], ",", 
     "93.94291888889671909182579261695427530955`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["3", "20"], ",", 
     "90.5701646081467014084076608686563635473`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "5"], ",", 
     "85.46584980759700281564053208631310129093`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", "0", ",", 
     "72.18839327480507687580859106660496618823`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "20"], ",", 
     "71.5251280437965883444172394538902319221`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "10"], ",", 
     "69.48052126183193829961232968426922309678`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["3", "20"], ",", 
     "65.87113568176363011940040381795929548978`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "5"], ",", 
     "60.31015984727556447831935309784489455049`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", "0", ",", 
     "54.93941015023437873290396878516371565628`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "20"], ",", 
     "54.21967026566986051178069055786847094297`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "10"], ",", 
     "51.98489519536084526447039639453346850617`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["3", "20"], ",", 
     "47.97118499270056961515164535140481287744`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "5"], ",", 
     "41.560059403167164128589182252836164988`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", "0", ",", 
     "41.560059403167164128589182252836164988`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "20"], ",", 
     "40.7515519797435346265096737060676755578`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "10"], ",", 
     "38.20779208119269879319738147429546685974`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["3", "20"], ",", 
     "33.48095461223615755117013569177962989786`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "5"], ",", 
     "25.25120986273758700014125161843399212902`16."}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5680101021394444`*^9, {3.5680101394030657`*^9, 3.568010165777265*^9}, 
   3.5680104313749733`*^9, 3.568010461459507*^9, {3.568010493352314*^9, 
   3.5680105313899717`*^9}, 3.568010651893381*^9, 3.568010724545289*^9, 
   3.568966877639402*^9, {3.568966911015706*^9, 3.56896692308739*^9}, {
   3.568967054240767*^9, 3.568967061276733*^9}, 3.568967263960381*^9, {
   3.568967359898954*^9, 3.568967371458042*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", " ", 
  RowBox[{"Prepend", "[", 
   RowBox[{"data", ",", 
    RowBox[{"{", 
     RowBox[{"\"\<d/D\>\"", ",", "\"\<t/D\>\"", ",", "\"\<Sqrt(e_r)Z0\>\""}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.568966951261189*^9, 3.56896698827803*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"d/D\"\>", ",", "\<\"t/D\"\>", ",", "\<\"Sqrt(e_r)Z0\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", "0", ",", 
     "138.05952895656870699520899488456423467273`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "20"], ",", 
     "137.4507450029578480801109284808465697971`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "10"], ",", 
     "135.58558871739278433439475687984662206903`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["3", "20"], ",", 
     "132.33880473910899955626312974983805196184`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     FractionBox["1", "5"], ",", 
     "127.46748454422190554418190056702157662641`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", "0", ",", 
     "96.49946955340154286405648183486397516451`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "20"], ",", 
     "95.87134914658342802038992103621089515688`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "10"], ",", 
     "93.94291888889671909182579261695427530955`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["3", "20"], ",", 
     "90.5701646081467014084076608686563635473`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     FractionBox["1", "5"], ",", 
     "85.46584980759700281564053208631310129093`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", "0", ",", 
     "72.18839327480507687580859106660496618823`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "20"], ",", 
     "71.5251280437965883444172394538902319221`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "10"], ",", 
     "69.48052126183193829961232968426922309678`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["3", "20"], ",", 
     "65.87113568176363011940040381795929548978`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     FractionBox["1", "5"], ",", 
     "60.31015984727556447831935309784489455049`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", "0", ",", 
     "54.93941015023437873290396878516371565628`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "20"], ",", 
     "54.21967026566986051178069055786847094297`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "10"], ",", 
     "51.98489519536084526447039639453346850617`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["3", "20"], ",", 
     "47.97118499270056961515164535140481287744`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     FractionBox["1", "5"], ",", 
     "41.560059403167164128589182252836164988`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", "0", ",", 
     "41.560059403167164128589182252836164988`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "20"], ",", 
     "40.7515519797435346265096737060676755578`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "10"], ",", 
     "38.20779208119269879319738147429546685974`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["3", "20"], ",", 
     "33.48095461223615755117013569177962989786`16."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     FractionBox["1", "5"], ",", 
     "25.25120986273758700014125161843399212902`16."}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.568966995147019*^9, 3.568967161145849*^9, 3.568967270447404*^9, {
   3.568967363125724*^9, 3.568967374171385*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"data", ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d/D\"\>", "\<\"t/D\"\>", "\<\"Sqrt(e_r)Z0\"\>"},
    {
     FractionBox["1", "10"], "0", 
     "138.05952895656870699520899488456423467273`16."},
    {
     FractionBox["1", "10"], 
     FractionBox["1", "20"], 
     "137.4507450029578480801109284808465697971`16."},
    {
     FractionBox["1", "10"], 
     FractionBox["1", "10"], "135.58558871739278433439475687984662206903`16."},
    {
     FractionBox["1", "10"], 
     FractionBox["3", "20"], "132.33880473910899955626312974983805196184`16."},
    {
     FractionBox["1", "10"], 
     FractionBox["1", "5"], 
     "127.46748454422190554418190056702157662641`16."},
    {
     FractionBox["1", "5"], "0", 
     "96.49946955340154286405648183486397516451`16."},
    {
     FractionBox["1", "5"], 
     FractionBox["1", "20"], 
     "95.87134914658342802038992103621089515688`16."},
    {
     FractionBox["1", "5"], 
     FractionBox["1", "10"], 
     "93.94291888889671909182579261695427530955`16."},
    {
     FractionBox["1", "5"], 
     FractionBox["3", "20"], "90.5701646081467014084076608686563635473`16."},
    {
     FractionBox["1", "5"], 
     FractionBox["1", "5"], "85.46584980759700281564053208631310129093`16."},
    {
     FractionBox["3", "10"], "0", 
     "72.18839327480507687580859106660496618823`16."},
    {
     FractionBox["3", "10"], 
     FractionBox["1", "20"], "71.5251280437965883444172394538902319221`16."},
    {
     FractionBox["3", "10"], 
     FractionBox["1", "10"], 
     "69.48052126183193829961232968426922309678`16."},
    {
     FractionBox["3", "10"], 
     FractionBox["3", "20"], 
     "65.87113568176363011940040381795929548978`16."},
    {
     FractionBox["3", "10"], 
     FractionBox["1", "5"], "60.31015984727556447831935309784489455049`16."},
    {
     FractionBox["2", "5"], "0", 
     "54.93941015023437873290396878516371565628`16."},
    {
     FractionBox["2", "5"], 
     FractionBox["1", "20"], 
     "54.21967026566986051178069055786847094297`16."},
    {
     FractionBox["2", "5"], 
     FractionBox["1", "10"], 
     "51.98489519536084526447039639453346850617`16."},
    {
     FractionBox["2", "5"], 
     FractionBox["3", "20"], 
     "47.97118499270056961515164535140481287744`16."},
    {
     FractionBox["2", "5"], 
     FractionBox["1", "5"], "41.560059403167164128589182252836164988`16."},
    {
     FractionBox["1", "2"], "0", 
     "41.560059403167164128589182252836164988`16."},
    {
     FractionBox["1", "2"], 
     FractionBox["1", "20"], "40.7515519797435346265096737060676755578`16."},
    {
     FractionBox["1", "2"], 
     FractionBox["1", "10"], 
     "38.20779208119269879319738147429546685974`16."},
    {
     FractionBox["1", "2"], 
     FractionBox["3", "20"], 
     "33.48095461223615755117013569177962989786`16."},
    {
     FractionBox["1", "2"], 
     FractionBox["1", "5"], "25.25120986273758700014125161843399212902`16."}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.568967008818071*^9, 3.568967163511722*^9, 
  3.568967273263843*^9, 3.568967376720477*^9}]
}, Open  ]]
},
WindowSize->{982, 1037},
WindowMargins->{{Automatic, 196}, {Automatic, 44}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 386, 9, 77, "Input"],
Cell[968, 33, 153, 3, 49, "Output"],
Cell[1124, 38, 94, 1, 32, "Output"]
}, Closed]],
Cell[1233, 42, 801, 26, 26, "Input"],
Cell[CellGroupData[{
Cell[2059, 72, 1171, 32, 55, "Input"],
Cell[3233, 106, 4567, 130, 369, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[7837, 241, 288, 7, 26, "Input"],
Cell[8128, 250, 4384, 129, 369, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[12549, 384, 119, 3, 26, "Input"],
Cell[12671, 389, 3211, 95, 764, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
